home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / rmtlog1a / modlogma.bas < prev    next >
BASIC Source File  |  1999-03-20  |  3KB  |  64 lines
  1. Attribute VB_Name = "modLogMain"
  2. Option Explicit
  3.  
  4.   Public Declare Function GetComputerName Lib "kernel32" Alias _
  5.     "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) _
  6.     As Long
  7.   
  8.   Public Declare Function GetUserName Lib "advapi32.dll" Alias _
  9.     "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) _
  10.     As Long
  11.  
  12.   Public Declare Function RegisterEventSource Lib "advapi32.dll" Alias _
  13.       "RegisterEventSourceA" (ByVal lpUNCServerName As String, _
  14.       ByVal lpSourceName As String) As Long
  15.   
  16.   Public Declare Function DeregisterEventSource Lib "advapi32.dll" ( _
  17.       ByVal hEventLog As Long) As Long
  18.   
  19. ' Original Declare from email
  20.   Public Declare Function ReportEvent Lib "advapi32.dll" Alias _
  21.     "ReportEventA" (ByVal hEventLog As Long, ByVal wType As Integer, _
  22.       ByVal wCategory As Integer, ByVal dwEventID As Long, _
  23.       ByVal lpUserSid As Any, ByVal wNumStrings As Integer, _
  24.       ByVal dwDataSize As Long, plpStrings As Long, _
  25.       lpRawData As Any) As Boolean
  26.       
  27. ' Declare from VB API loader
  28. 'Public Declare Function ReportEvent Lib "advapi32.dll" Alias _
  29. '    "ReportEventA" (ByVal hEventLog As Long, ByVal wType As Long, _
  30. '    ByVal wCategory As Long, ByVal dwEventID As Long, _
  31. '    lpUserSid As Any, ByVal wNumStrings As Long, _
  32. '    ByVal dwDataSize As Long, ByVal lpStrings As Long, _
  33. '    lpRawData As Any) As Long
  34.       
  35. ' Declare from Appleman
  36. 'Public Declare Function ReportEvent& Lib "advapi32.dll" Alias _
  37. '    "ReportEventA" (ByVal hEventLog As Long, _
  38. '    ByVal wType As Long, ByVal wCategory As Long, _
  39. '    ByVal dwEventID As Long, lpUserSid As Any, _
  40. '    ByVal wNumStrings As Long, ByVal dwDataSize As Long, _
  41. '    ByVal lpStrings As Long, lpRawData As Any)
  42.   
  43.   Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" ( _
  44.       hpvDest As Any, hpvSource As Any, _
  45.       ByVal cbCopy As Long)
  46.   
  47.   Public Declare Function GlobalAlloc Lib "kernel32" ( _
  48.        ByVal wFlags As Long, _
  49.        ByVal dwBytes As Long) As Long
  50.   
  51.   Public Declare Function GlobalFree Lib "kernel32" ( _
  52.        ByVal hMem As Long) As Long
  53.   
  54.   '-- Public Log Event Types
  55.   Public Const EVENTLOG_SUCCESS = 0
  56.   Public Const EVENTLOG_ERROR_TYPE = 1
  57.   Public Const EVENTLOG_WARNING_TYPE = 2
  58.   Public Const EVENTLOG_INFORMATION_TYPE = 4
  59.   Public Const EVENTLOG_AUDIT_SUCCESS = 8
  60.   Public Const EVENTLOG_AUDIT_FAILURE = 10
  61.  
  62.   ' Private Constants
  63.   Public Const GMEM_ZEROINIT = &H40
  64.